Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.0/background_13187.txt

Text File | 1989-02-26 | 6KB | 280 lines

-- background: 13187 from stack: in.0
-- bmap block id: 4585
-- flags: 4000
-- background id: 0
-- name: Scripts
----- HyperTalk script -----
on opencard
  put (the number of this card - the number of first card of this background+1) into field "PageNumber"
end opencard



-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=456 top=301 right=329 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual effect iris close
  go first card
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=54 top=23 right=56 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Name


-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=57 top=70 right=299 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=255 top=311 right=327 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=306 right=331 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual effect wipe right
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=306 right=331 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual effect wipe left
  go to next card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=74 right=117 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual iris open to gray
  visual iris close to black
  visual iris open to gray
  visual iris close
  go background information
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=119 right=162 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual barn door close to black
  visual barn door open
  go back
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=164 right=207 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  go home
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=209 right=252 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  domenu "open stack..."
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=254 right=297 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual venetian blinds to gray
  visual venetian blinds to black
  visual venetian blinds to gray
  visual venetian blinds

  go to background "Mini Hyperstation"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  If the short name of the target is "Menus On" then
    set the name of the target to "Menus Off"
    show menubar
  else
    set the name of the target to "Menus On"
    hide menubar
  end if
end mouseUp